Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/FREAK.DIR/00315_Script_MOVIESCRIPT

Text File | 1994-10-18 | 497b | 31 lines

on startMovie
  cursor 200
end

on waitSnd chan
  if soundbusy(chan) then go the frame
end

on waitQT chan
  if the movierate of sprite chan = 1 then go the frame
end

on myWait theTicks
  set myTicks = theTicks + the ticks
  repeat while (myTicks >= the ticks)
  end repeat
end

on waiting theTicks
  if the timer <= theTicks then go the frame
end

on keydown
  global autoplaying
  put 0 into autoplaying
  sound stop 1
  sound stop 2
  unloadcast
  play done
end